clear

set scheme plotplain

use Data_Proc\recs_clean

collapse (mean) pe10-pe20 ph10-ph20 pg10-pg20 po10-po20 pp10-pp20 [pw=nweight]
gen nation = 1
reshape long pe ph pg po pp, i(nation) j(year)
replace year = 2000 + year
la var pe "Elecricity"
la var pp "Propane"
la var po "Heating oil"
la var ph "Heat pump"
la var pg "Natural gas"
la var year "Year"
twoway (line pe pp po ph pg year, lp(dash solid shortdash solid dash_dot) lw(thin thin thin wide thin) ytitle("Energy price ($/MMBTU)") ylabel(0(10)50) legend(off) text(42 2018.5 "Electricity" 37 2016.5 "Propane" 25 2017.5 "Heating oil" 15 2018.5 "Heat pump" 10.4 2018 "Natural gas", size(small)))
graph export Final_Output\fig_price_levels.png, as(png) replace


clear
exit